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LSTUIR 

SRC U I ST THE SYSTEM DIRECTORY 





o 



.TITLE 

EI.ST THE SYSTEM 

DIRECTORY 



o 




77 - 27 - 7 % 






o 



/DIGITAL EQUIPMENT CORPORATION) 

MAYNARD, MASS, 



o 



/ED HJETQN 




o 



f 

,ABS 





o 

013.00 


,LOC 

1100 




o 


000560 

URREFX=560 





o 


000522 

TYP0NE=522 







000120 

GETMON?120 






o 


000460 

TSJXBT-460 





o 


000514 

GREF = 514 







000565 

DIRECT=565 






o 


000314 

R E A D = 3 1 4 





o 


000540 

PSOD-540 







000024 

BLKNUM524 






o 


700301 

KSF = 700301 







700312 

KRB =700312 
/ 

ESTPIR JMS 





o 


01100 

100514 

CREF 

/PROGRAM TO LIST 

THE DIRECTORY 


o 

0 

01101 

100560 

JMS 

UPREFX 





01102 

201323 

EAC 

{ D I RMSGffl 





o 

01103 

100460 

JMS 

TSJXBT 




o 

01104 

100514 

JMS 

CHEF 





01105 

201324 

EAC 

(HPRMSGr?l*400000 





01106 

100460 

JMS 

TSfXBT 




o 

o 

01107 

100514 

JMS 

CHEF 





01110 

201325 

LAG 

(477 






01111 

040317 

DAC 

READ*3 




o 

o 

01112 

777522 

EAW 

»256 





01113 

040316 

PAG 

READ+2 





o 

01114 

201326 

EAC 

m 




o 

01115 

040024 

PAC 

BEKNUM 





01116 

100314 

JMS 

READ 





o 

01117 

100514 

JMS 

CREF 




o 

01120 

20132 7 

EAC 

(DJRECT^l 

/SET UP ADDRESS* 

1 OF DIRECTORY 



01121 

040014 

PAC 

14 






01122 

141317 

OZM 

PRGNMB# 

/SET UP PROGRAM 

NUMBER 


o 

o 



.EJECT 




o 








o 

0 








o 

o 








o 

0 








o 

0 








o 
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o 
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0 

01123 

01124 

01125 

o 

01126 

01127 

01130 

o 

01131 

01132 

01133 

o 

01134 

01135 

01136 

o 

01137 

01140 

01141 

o 

01142 

01143 

01144 

o 

01145 

01146 

o 

01147 

01150 

01151 

o 

o 

01152 

01153 

01154 

01155 

01156 

o 

01157 

01160 

01161 

o 

01162 

01163 

o 

01164 

01165 

01166 

o 

01167 

01170 

01171 

o 

01172 


o 


o 

o 

o 


L, S T D J K SRC u I ST 

4 4X417 LSTDRA 

700301 
601131 
700312 
541330 
600120 
220014 
741200 
6011/3 
041312 
201317 
101232 
101262 
220014 
041313 
740200 
601147 
201331 
041313 
601163 

501332 
740200 
601163 
201313 
241333 
043 , 33*3 

501334 
740200 
601133 
201313 
241335 
041313 

201336 LST ) 1 

100460 
101262 
220014 
100540 
100514 
440014 
601123 


THE SYSTEM DIRECTORY 


IS2 

PRGNMB 

KSF 

JMP 

, *4 

KRB 


SAD 

(203 

JMP 

GETMON 

LAC* 

14 

SNA 


JMP 

DUNMSG 

DAC 

A 

LAC 

PRGNMB 

JMS 

PR2DD 

JMS 

SPACE4 

LAC* 

14 

DAC 

AH 

SHA 


JMP 

i *4 

LAC 

(404040) 

DAC 

Ail 

JMP 

L§f ,1 

/ 


and 

(77) 

SHA 


JMP 

LST.i 

LAC 

AH 

XOR 

(40) 

DAC 

AH 

/ 


AND 

(7700? 

S2A 


JMP 

LST.l 

LAC 

AH 

XOR 

(4000? 

Ail 

DAC 

/ 


LAC 

<A«1 

JMS 

TS J XBT 

JMS 

5PAQE4 

LAC* 

JMS 

14 

PSQP 

JMS 

crlf 

ISZ 

14 

JMP 

LSTDRA 


.EJECT 


o 


/BACK TO MONITOR? 

/YES 

/NO 

/DIRECTORY HAS FOUR WORDS PER 
/program, words ONE AND TWQ ARE THE 
/TITLE IN , S I XBT . WORD THREE [S STARTING 
/BLOCK # ON DECTAPE, WORD FOUR IS 
/WORD COUNT (NEGATIVE FORM), 

/FORMAT IS A TWO DIGIT DECIMAL 
/NUMBER, A SPACE, AND A PROGRAM 
/TITLE, (SIX CHARACTERS OR LESS) 

/ANY CHARACTERS IN L*ST HALF OF WORD? 
/YES, CHECK FOR FILLING IN SPACES 
/NO, FILL IN ALL SPACES, 

/PRINT, 


/ANY IN LAST CHARACTER? 

/YES, PRINT, 

/NO FILL LAST CHARACTER WITH A SPACE, 


/NOW check middle CHARACTER, 
/PRINT, 

/FILL IN MIDDLE CHARACTER, 


/UPDATE DIRECTORY POINTER 



o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 
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ESTDIH 

SR0 LIST THE SYSTEM DIRECTORY 


o 

01173 

777775 

QIJNMSG 

LAW 

*3 

o 


01174 

340014 


TAD 

14 



011713 

040014 


DAO 

14 


o 

01176 

740001 


CM A 


o 


01177 

341337 


TAD 

(DIRECT 


o 

01200 

740100 


SMA 



01201 

601223 


JMP 

LSTQRB 

o 


01202 

220014 


LAC* 

14 


o 

01203 

041315 


DAC 

b£k# 


01204 

220014 


LAC# 

14 

o 


01205 

141316 


Q2M 

cntblk# 


o 

01206 

441316 


IS2 

CNTBLK 


01207 

341340 


TAD 

(400 

o 


01210 

741100 


SPA 



o 

01211 

601206 


JMP 

iw3 


01212 

201316 


LAC 

CNTBLK 

o 


01213 

341315 


TAD 

BLR 


o 

01214 

740001 


CM A 



01215 

341341 


TAD 

(1101 

o 


01216 

100540 

ISTDRC 

JMS 

PSOD 


o 

01217 

201342 


LAC 

(BLKMSG-.1 

o 

01220 

100460 


JMS 

TSJXBT 


01221 

700312 


KRB 



0 

01222 

600122 


JMP 

GETMON+2 

o 

01223. 

201343 

l,STDR8 

LAC 

(1042 


01224 

601216 


JMP 

/ 

0 

LSTDRC 


o 

01225 

000000 

RRQT6 

/SHIFT AC 6 PLACES TO RIGHT 

o 


01226 

742020 


rtr 



o 

01227 

742020 


RTR 



01230 

742020 


rtr 


o 


01231 

621225 


JMP# 

RR0T6 






, EJECT 



0 






o 

o 






o 

o 






o 


o 
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o 

o 

o 
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o 

o 

o 
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o 


o 


o O 
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o 

0X232 

000000 

PR2DD 

0 


01233 

141321 


OHM 


0X234 

501332 


AND 

o 

0X235 

740200 


SHA 


01236 

601244 


JMP 


0X237 

760260 


LAW 

o 

0X240 

100522 


JMS 


01241 

760260 


LAW 


01242 

100522 


JMS 

o 

0X243 

62X232 


JMP 0 


01244 

341344 


TAD 


01245 

741100 


SPA 

o 

01246 

601251 


JMP 


01247 

441321 


ISZ 


01250 

601244 


JMP 

o 

0X251 

041322 


DAC 

01252 

201321 


LAC 


0X253 

34X345 


TAD 

o 

0X254 

100522 


JMS 

0X255 

201322 


LAO 


01256 

341346 


TAD 

o 

0X257 

341345 


TAD 


0X260 

100522 


JMS 


01261 

621232 


JMP* 

0 

01262 

000000 

SPACE4 

/ 

0 


01263 

777774 


LAW 

o 

01264 

041320 


DAC 


01265 

760240 


LAW 


01266 

100522 


JMS 

o 

01267 

441320 


ISZ 

01270 

601265 


JMP 


01271 

621262 


JMP* 


O .EJECT 


O 

O 

o 


/PRINT TWO DECIMAL DIGITS UP TO 

TENS# 

! / 7 

! *6 

260 

TYPONE. 

260 

TYRONE. 

PR2DP" 

<*12 

» *3 
TENS 
* ^4 

UNITS# 

TENS 

(260 

TYPONE 

units" 

( 12 
(260 
TYPONE 
PR2D0" 


*4 

SPQNT# 

240 

TYRONE 
SPCNT" 
i *3 

SPACE4 


4 O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o o 

o o 


o 


o 


o 


o 


u 


o 
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USJUIR 

SRQ UST 

THE SYSTEM DIRECTORY 

01272 

041122 

dirmsg 

t S I XBT 

'DIRECTORY* 5 * 

01273 

050324 




01274 

172231 




01275 

000000 




01276 

162515 

HDRMSG 

. S I XB T 

'NUMB TITLE 

01277 

024040 




01300 

241124 




01301 

140540 




01302 

404040 




01303 

400213 




01304 

160000 




01305 

404006 

BLKMSG 

i S I XBT 

* FREE BEPCKSt? 

01306 

220505 




01307 

400214 




01310 

170313 




01311 

230000 




01312 

000000 

A 

0 


01313 

0000.00 


0 


01314 

000000 


0 





.EJECT 



PAGE 6 

LSTDIH 

SRC 

1,1st the system directory 


000000 


i END 

01323 

001271 



01324 

4012/5 

*U 


01325 

0004/7 

»t- 


01326 

000001 



01327 

000564 

*U 


01330 

000203 



01331 

404040 



01332 

000077 

*U 


01333 

000040 

<*L 


01334 

007700 



01335 

004000 

*1, 


01336 

001311 

<>l~ 


01337 

000565 



01340 

000400 



01341 

001101 



01342 

001304 

*U 


01343 

001042 



01344 

777766 



01345 

000260 



31346 

000012 

*u 



S!*E 

= 01347 

NO ERROR UNES 


o 

o 
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7 LSTPIH 

1 SR0 

U ST THE 

SYSTEM l 

DIRECTORY 


o 

A 

01312 

BLK 

01315 

blkmsg 

01305 

BEKNUM 


cntblk 

01316 

CRLF 

000514 

DIRECT 

000565 

QIRMSG 


DUNMSG 

01173 

GETMON 

000120 

HDRMSG 

'0X276 

KRB 

o 

KSF 

700301 

lstdir 

01100 

ESTDRA 

01123 

ESTDRB 


ESTDRC 

01216 

LST.l 

01163 

PRGNMB 

01317 

PR2PD 


PSOP 

000540 

READ 

000314 

RR0T6 

01225 

SPACED 

o 

SPCNT 

01320 

TENS 

01321 

TSJXBT 

000460 

TYRONE 


units 

01322 

UPREFX 

000560 





o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 

o 


000024 

O 

01272 

700312 


01223 

01232 

O 

01262 

000522 

o 


o 


o 


o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



page 
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LSTDIR SRC 

LIST THE 

SYSTEM 

DIRECTORY 



BLKNUM 

000024 

GETMON 

000120 

READ 

000314 

TSIXBT 

000460 

CRL,F 

0005X4 

TYRONE 

000522 

PSOP 

000540 

UPREF* 

000560 

DIRECT 

000565 

LSTDIR 

01100 

LSTPRA 

~01123 

LST,1 

01163 

OUNMSG 

01173 

LSTDRC 

01216 

LSTURB 

01223 

RR0T6 

01225 

PR2DD 

01232 

SPACE4 

01262 

PIRMSG 

01272 

HDRMSG 

01276 

BLKMSG 

01305 

A 

01312 

BLK 

01315 

cntblk 

01316 

PRGNMB 

01317 

SPCNT 

01320 

TENS 

01321 

units 

01322 

KSF 

700301 

KRB 

700312 







